home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / write.lha / WRITE / Config / MAILER.config < prev    next >
Encoding:
Text File  |  1994-12-13  |  4.8 KB  |  364 lines
  1. /* $VER: MAILER.CONFIG 3.848 */
  2. VERSIONCHECK 31090 "MAILER.CONFIG"
  3.  
  4. /* Userfunktionen */
  5.  
  6. BEGIN
  7.  
  8.   ;
  9.  
  10. CLOSE
  11.  
  12.   ;
  13.  
  14. SETUSERFKT 0
  15.   SETVAR "_Path" _RS
  16.   NEWED ""
  17.   WINDOW 0 0 0 0
  18.   OPEN _PATH
  19.   ;
  20.  
  21. SETUSERFKT 1
  22.   M_QUIT
  23.   ;
  24.  
  25.  
  26. /* lokale Variablen */
  27.  
  28. SETVAR "_OPTIMIZE" TRUE
  29. SETVAR "_FRPATTERN" "~(#?(.info|.bak))"
  30. SETVAR "_WORDDEF" 2
  31. SETVAR "_AUTOINDENT" 5
  32. SETVAR "_WORDWRAP" 2
  33.  
  34.  
  35. /* Tastaturbelegung */
  36.  
  37. KEY "control y"
  38.   DELETELINE
  39.   ;
  40.  
  41. KEY "backspace"
  42.   BACKSPACE 0
  43.   ;
  44.  
  45. KEY "shift tab"
  46.   BACKTAB
  47.   ;
  48.  
  49. KEY "tab"
  50.   TAB 0
  51.   ;
  52.  
  53. KEY "return"
  54.   RETURN
  55.   ;
  56.  
  57. KEY "shift delete"
  58.   DELETETOEOL
  59.   ;
  60.  
  61. KEY "delete"
  62.   DELETE
  63.   ;
  64.  
  65. KEY "alt up"
  66.   GOTO _XPOS 1
  67.   ;
  68.  
  69. KEY "shift up"
  70.   PAGEUP 90
  71.   ;
  72.  
  73. KEY "up"
  74.   CURSORUP 0
  75.   ;
  76.  
  77. KEY "alt down"
  78.   GOTO _XPOS _LENGTH
  79.   ;
  80.  
  81. KEY "shift down"
  82.   PAGEDOWN 90
  83.   ;
  84.  
  85. KEY "down"
  86.   CURSORDOWN 0
  87.   ;
  88.  
  89. KEY "alt right"
  90.   NEXTWORD
  91.   ;
  92.  
  93. KEY "shift right"
  94.   GOTO @EOL @EOL
  95.   ;
  96.  
  97. KEY "right"
  98.   CURSORRIGHT 0
  99.   ;
  100.  
  101. KEY "alt left"
  102.   LASTWORD
  103.   ;
  104.  
  105. KEY "shift left"
  106.   GOTO @SOL @SOL
  107.   ;
  108.  
  109. KEY "left"
  110.   CURSORLEFT 0
  111.   ;
  112.  
  113. KEY "rawmouse lbutton mouse_leftpress"
  114.   GOTOMOUSE
  115.   ;
  116.  
  117. DOUBLEKEY "rawmouse lbutton mouse_leftpress" "rawmouse lbutton mouse_leftpress"
  118.   IF {@CLEARRN}
  119.     GOTOMOUSE {@SAMEPOS};
  120.     SETMARK;
  121.     GOTOMOUSE ;
  122.   ;
  123.  
  124. KEY "rawmouse rbutton lbutton mouse_rightpress"
  125.   UNMARK
  126.   ;
  127.  
  128. DOUBLEKEY "rawmouse rbutton mouse_rightpress" "rawmouse rbutton mouse_rightpress"
  129.   PANNEL
  130.   ;
  131.  
  132.  
  133. /* Menues */
  134.  
  135. MENU "Projekt"
  136.  
  137. ITEM "Neu" ""
  138.   M_OPEN
  139.   ;
  140.  
  141. ITEMBAR
  142.  
  143. ITEM "Iconify" "escape"
  144.   ICONIFY
  145.   ;
  146.  
  147. ITEM "Über WRITE" "!"
  148.   ABOUT
  149.   ;
  150.  
  151. ITEMBAR
  152.  
  153. ITEM "Speichern & Verlassen" "E"
  154.   M_SAVE_QUIT
  155.   ;
  156.  
  157. ITEM "Ende" "Q"
  158.   M_QUIT
  159.   ;
  160.  
  161. MENU "Edieren"
  162.  
  163. ITEM "Setze Marke" "M"
  164.   SETTITLE "Marke gesetzt." 0
  165.   SETMARK
  166.   ;
  167.  
  168. ITEM "Lösche Marke" "U"
  169.   UNMARK
  170.   ;
  171.  
  172. ITEMBAR
  173.  
  174. ITEM "Ausschneiden" "X"
  175.   COPYBLOCK 0
  176.   DELETEBLOCK
  177.   ;
  178.  
  179. ITEM "Kopieren" "C"
  180.   COPYBLOCK 0
  181.   SETTITLE "Block kopiert." 0
  182.   ;
  183.  
  184. ITEM "Einfügen" "V"
  185.   INSERTBLOCK 0
  186.   ;
  187.  
  188. ITEM "Löschen" ""
  189.   DELETEBLOCK
  190.   ;
  191.  
  192. ITEM "Füge File ein..." ""
  193.   GETFILE "" ""
  194.   LOADBUFFER _PATH 0
  195.   INSERTBLOCK 0
  196.   ;
  197.  
  198. ITEMBAR
  199.  
  200. ITEM "Clipboard" ""
  201.   NOP
  202.   ;
  203.  
  204. SUB "Ausschneiden nach Clip" "alt x"
  205.   COPYBLOCK 0
  206.   BUFFERTOCLIP 0 0
  207.   DELETEBLOCK
  208.   ;
  209.  
  210. SUB "Nach Clip kopieren" "alt c"
  211.   COPYBLOCK 0
  212.   BUFFERTOCLIP 0 0
  213.   SETTITLE "Block kopiert." 0
  214.   ;
  215.  
  216. SUB "Einfügen aus Clip" "alt v"
  217.   CLIPTOBUFFER 0 0
  218.   INSERTBLOCK 0
  219.   ;
  220.  
  221. SUB "Buffer nach Clip" ""
  222.   BUFFERTOCLIP 0 0
  223.   ;
  224.  
  225. SUB "Clip nachBuffer" ""
  226.   CLIPTOBUFFER 0 0
  227.   ;
  228.  
  229. MENU "Utilities"
  230.  
  231. ITEM "Schreibe Zeichen..." ""
  232.   GETNUMBER "Geben sie den\ndezimalen ASCII-CODE\ndes Zeichen ein :" 0
  233.   WRITECHAR _RN
  234.   ;
  235.  
  236. ITEM "Zeige Zeit & Datum" "T"
  237.   MESSAGEOK "Aktuelle Zeit ist :\n$_Time$"
  238.   ;
  239.  
  240. ITEMBAR
  241.  
  242. ITEM "UPPER word" "^"
  243.   UPPERBLOCK @SOW @SOW @EOW @EOW
  244.   ;
  245.  
  246. ITEM "lower word" "#"
  247.   LOWERBLOCK @SOW @SOW @EOW @EOW
  248.   ;
  249.  
  250. ITEMBAR
  251.  
  252. ITEM "Match Bracket" "("
  253.   MATCHBRACKET
  254.   ;
  255.  
  256. MENU "Suchen"
  257.  
  258. ITEM "Zähle..." ""
  259.   GETFINDREPLACE _FINDSTRING ""
  260.   IF
  261.     COMPARE _MARKED HIGHER;
  262.     FIND @MARKA @MARKA @MARKB @MARKB {@COUNT};
  263.     FIND @CURSOR @CURSOR @EOT @EOT {@COUNT};
  264.   MESSAGEOK "\"$_FindString$\"\nwurde $_RN$ mal gefunden !"
  265.   ;
  266.  
  267. ITEMBAR
  268.  
  269. ITEM "Finde..." "F"
  270.   GETFINDREPLACE _FINDSTRING ""
  271.   IF
  272.     COMPARE _MARKED HIGHER;
  273.     FIND @MARKA @MARKA @MARKB @MARKB ;
  274.     FIND @CURSOR @CURSOR @EOT @EOT ;
  275.   ;
  276.  
  277. ITEM "Finde noch einmal" "N"
  278.   IF
  279.     COMPARE _MARKED HIGHER;
  280.     FIND @CURSOR @CURSOR @MARKB @MARKB ;
  281.     FIND @CURSOR @CURSOR @EOT @EOT ;
  282.   ;
  283.  
  284. ITEMBAR
  285.  
  286. ITEM "Ersetze..." "Y"
  287.   GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  288.   IF
  289.     COMPARE _MARKED HIGHER;
  290.     REPLACE @MARKA @MARKA @MARKB @MARKB ;
  291.     REPLACE @CURSOR @CURSOR @EOT @EOT ;
  292.   ;
  293.  
  294. ITEM "Ersetze noch einmal" "Z"
  295.   IF
  296.     COMPARE _MARKED HIGHER;
  297.     REPLACE @CURSOR @CURSOR @MARKB @MARKB ;
  298.     REPLACE @CURSOR @CURSOR @EOT @EOT ;
  299.   ;
  300.  
  301. ITEM "Ersetze alle..." ""
  302.   GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  303.   IF
  304.     COMPARE _MARKED HIGHER;
  305.     REPLACE @MARKA @MARKA @MARKB @MARKB {@ALL};
  306.     REPLACE @CURSOR @CURSOR @EOT @EOT {@ALL};
  307.   FLASH
  308.   ;
  309.  
  310. ITEM "Ersetze alle schnell..." ""
  311.   GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  312.   SILENT
  313.   IF
  314.     COMPARE _MARKED HIGHER;
  315.     REPLACE @MARKA @MARKA @MARKB @MARKB {@ALL @NOREQ};
  316.     REPLACE @CURSOR @CURSOR @EOT @EOT {@ALL @NOREQ};
  317.   WINDOW 0 0 0 0
  318.   MESSAGEOK (Es wurde $_RN$ mal\n"$_FindString$"\ndurch\n"$_ReplaceString$"\nersetzt.)
  319.   ;
  320.  
  321. ITEMBAR
  322.  
  323. ITEM "Springe zu Zeile..." "G"
  324.   GETNUMBER "Springe zu Zeile :" _YPOS
  325.   GOTO _XPOS _RN
  326.   ;
  327.  
  328. ITEMBAR
  329.  
  330. ITEM "Zeige Index..." "J"
  331.   GETSTRING "Bitte geben sie das Suchmuster\nfür den Index an :" "#?#?"
  332.   SHOWINDEX _RS {@CASE}
  333.   ;
  334.  
  335. MENU "Prefs"
  336.  
  337. ITEM "Prefs" "+"
  338.   PREFS
  339.   ;
  340.  
  341. MENU "Hilfe"
  342.  
  343. ITEM "Help..." "Shift Help"
  344.   HELP
  345.   ;
  346.  
  347. ITEM "Zeige Variablen" ""
  348.   SHOWVARS
  349.   ;
  350.  
  351. ITEM "Zeige Funktionen" ""
  352.   SHOWFUNCTIONS
  353.   ;
  354.  
  355. ITEM "Zeige ASCII-Codes" ""
  356.   SHOWASCII
  357.   ;
  358.  
  359. ITEM "Hilfe zu Stichwort..." "?"
  360.   GETSTRING "Bitte geben sie das gesuchte Stichwort ein :" ""
  361.   GUIDEHELP _RS
  362.   ;
  363.  
  364.